<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>2828</cardID>
<listID>3903</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>448</width>
<height>256</height>
</cardSize>
<script>--Gopher's Helper v0.1b2--fxa.------------------------------------------------------------------on getCat selector ------------∆∆global gName, gSelector, gLongNamedCInfo selector, "gName", "gSelector", "gLongName"put gName into card field "PhyName"put gLongName into card field "LongName"--set the scroll of card field "DisplayStuff" to 0if the number of lines in card field "CtrlStack" = 1 thenhide card btn "Up"end ifend getCatfunction checkAlias fName --true if there was a true alias, not just a nameglobal gCPathName, gCAliasName, gCHostName, gCPort, gCServerSel, gCItemTypeif last char of fName is ":" then delete last char of fNameput fName into gCPathNameput "•" after fNameif there is a file fName then --check aliasopen file fNameread from file fName for 5255put line 1 of it into gCAliasNameput line 2 of it into gCHostNameput line 3 of it into gCPortput line 4 of it into gCServerSelput line 5 of it into gCItemTypeclose file fNameif gCHostName & gCPort & gCServerSel & gCItemType is empty thenreturn falseelsereturn trueend ifelse -- go ahead and open itput empty into gCAliasNameput empty into gCHostNameput empty into gCPortput empty into gCServerSelput empty into gCItemTypereturn falseend ifend checkAliasfunction SampleTheFile fName ------------∆∆if there is a file fName thenopen file fNameread from file fName for 10000put it into fConclose file fNameif length(fCon) < 10000 thenreturn fConelsereturn fCon & return & "••••• Sample of file contents only •••••" &¬return & "••••• Entire file is not displayed •••••"end ifelsereturn "••••• File not found •••••"end ifend SampleTheFileon UpdateAliasFile fNameglobal gCAliasName, gCHostName, gCPort, gCServerSel, gCItemTypeif last char of fName is ":" then delete last char of fNameput "•" after fNameif not (there is a file fName) thendCInfo fNameend ifopen file fNamewrite (line 1 of gCAliasName) & return & gCHostName &¬return & gCPort & return & gCServerSel & return & gCItemType &¬return to file fNameclose file fNamegetCat line 1 of card field "CtrlStack"end UpdateAliasFileon doLinkToglobal gCPathName, gCAliasName, gCHostName, gCPort, gCServerSel, gCItemTypelock screenshow card field "TableCloth"show card field "FakeDlg"show card field "DoWhat"show card field "too"if word 1 of gCAliasName is empty thenput tail(gCPathName) into card field "LNameLabel"elseput gCAliasName into card field "LNameLabel"end ifshow card field "LNameLabel"put gCHostName into card field "DlgHostName"show card field "DlgHostName"if gCHostName is not empty then --it is probably a real linkput gCPort into card field "LPort"end if-- if gCPort = 70 then-- put empty into card field "LPort"-- else-- put gCPort into card field "LPort"-- end ifshow card field "LPort"if gCServerSel <> "∑" thenput gCServerSel into card field "LServerSel"elseput empty into card field "LServerSel"end ifshow card field "LServerSel"put gCItemType into card field "LExplicitType"show card field "LExplicitType"show btn "Link"show btn "Clear"show btn "Cancel"show btn "Help"show btn "HelpB"unlock screenend doLinkToon doClearLink linkLineglobal gCAliasName, gCHostName, gCPort, gCServerSel, gCItemType, gSelectoranswer "Clear the currently existing link for item " & quote &¬gCAliasName & quote & "?" with "Clear" or "Cancel"if it is "Clear" thenput empty into gCHostNameput empty into gCPortput empty into gCServerSelput empty into gCItemTypeupdateAliasFile line linkL
